home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 1 / CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso / Aminet / biz / dbase / musicmanii.lha / Install_MusicManII < prev    next >
Text File  |  1995-05-28  |  18KB  |  654 lines
  1. ;
  2. ; Installer-Script für MusicManII V2.12
  3. ;
  4. ; $VER: Install_MusicManII 2.12 (28.05.95)
  5. ;
  6.  
  7.  
  8. ;
  9. ; Create a bootable System-Disk
  10. ; -----------------------------
  11.  
  12. (PROCEDURE create_boot_disk
  13. (
  14.   (SET Kick3 0)
  15.  
  16.   (ASKDISK (DEST "MusicManII")
  17.            (PROMPT "Bitte legen Sie die Diskette »MusicManII« ein...")
  18.            (HELP "Sie müssen jetzt eine Diskette mit dem\n"
  19.                  "Namen »MusicManII:« einlegen. Auf diese\n"
  20.                  "Diskette werden das Hauptprogramm und\n"
  21.                  "der MusicManII-Voreinstellungs-Editor\n"
  22.                  "kopiert. Zusätzlich werden noch alle\n"
  23.                  "benötigten System-Dateien kopiert und\n"
  24.                  "die Diskette wird bootfähig gemacht.\n")
  25.   )
  26.  
  27.   (MAKEDIR "MusicManII:C")
  28.   (MAKEDIR "MusicManII:L")
  29.   (MAKEDIR "MusicManII:Devs")
  30.   (MAKEDIR "MusicManII:Devs/Printers")
  31.   (MAKEDIR "MusicManII:Devs/Keymaps")
  32.   (MAKEDIR "MusicManII:S")
  33.  
  34.   (IF (>= Kickstart 36)
  35.     (
  36.       (MAKEDIR "MusicManII:Prefs")
  37.       (MAKEDIR "MusicManII:Prefs/Env-Archive")
  38.     )
  39.   )
  40.  
  41.   (COPYFILES (PROMPT "Richte C-Verzeichnis ein...")
  42.              (DEST "MusicManII:C")
  43.              (SOURCE "c:Copy")
  44.   )
  45.  
  46.   (COPYFILES (PROMPT "Richte C-Verzeichnis ein...")
  47.              (DEST "MusicManII:C")
  48.              (SOURCE "c:MakeDir")
  49.   )
  50.  
  51.   (COPYFILES (PROMPT "Richte C-Verzeichnis ein...")
  52.              (DEST "MusicManII:C")
  53.              (SOURCE "c:Assign")
  54.   )
  55.  
  56.   (IF (= (EXISTS "Sys:System/Setmap") 1)
  57.     (
  58.       (COPYFILES (PROMPT "Richte C-Verzeichnis ein...")
  59.                  (DEST "MusicManII:C")
  60.                  (SOURCE "Sys:System/Setmap")
  61.       )
  62.     )
  63.     (
  64.       (SET Kick3 1)
  65.       (COPYFILES (PROMPT "Richte C-Verzeichnis ein...")
  66.                  (DEST "MusicManII:C")
  67.                  (SOURCE "C:Setkeyboard")
  68.       )
  69.     )
  70.   )
  71.  
  72.   (IF (>= Kickstart 36)
  73.     (
  74.       (COPYFILES (PROMPT "Richte C-Verzeichnis ein...")
  75.                  (DEST "MusicManII:C")
  76.                  (SOURCE "c:IPrefs")
  77.       )
  78.     )
  79.   )
  80.  
  81.   (IF (= (EXISTS "L:Ram-Handler") 1)
  82.     (
  83.       (COPYFILES (PROMPT "Richte L-Verzeichnis ein...")
  84.                  (DEST "MusicManII:L")
  85.                  (SOURCE "L:Ram-Handler")
  86.       )
  87.     )
  88.   )
  89.  
  90.   (COPYFILES (PROMPT "Richte L-Verzeichnis ein...")
  91.              (DEST "MusicManII:L")
  92.              (SOURCE "L:Port-Handler")
  93.   )
  94.  
  95.   (IF (< Kickstart 36)
  96.     (
  97.       (COPYFILES (PROMPT "Richte L-Verzeichnis ein...")
  98.                  (DEST "MusicManII:L")
  99.                  (SOURCE "L:Disk-Validator")
  100.       )
  101.     )
  102.   )
  103.  
  104.   (COPYFILES (PROMPT "Richte Devs-Verzeichnis ein...")
  105.              (DEST "MusicManII:Devs/Keymaps")
  106.              (SOURCE "DEVS:Keymaps/")
  107.              (ALL)
  108.   )
  109.  
  110.   (COPYFILES (PROMPT "Richte Devs-Verzeichnis ein...")
  111.              (DEST "MusicManII:Devs/Printers")
  112.              (SOURCE "DEVS:Printers/")
  113.              (ALL)
  114.   )
  115.  
  116.   (COPYFILES (PROMPT "Richte Devs-Verzeichnis ein...")
  117.              (DEST "MusicManII:Devs")
  118.              (SOURCE "DEVS:printer.device")
  119.   )
  120.  
  121.   (IF (EXISTS "Devs:Serial.device")
  122.     (
  123.       (COPYFILES (PROMPT "Richte Devs-Verzeichnis ein...")
  124.                  (DEST "MusicManII:Devs")
  125.                  (SOURCE "Devs:Serial.Device")
  126.       )
  127.     )
  128.   )
  129.  
  130.   (IF (EXISTS "Devs:Parallel.device")
  131.     (
  132.       (COPYFILES (PROMPT "Richte Devs-Verzeichnis ein...")
  133.                  (DEST "MusicManII:Devs")
  134.                  (SOURCE "Devs:Parallel.Device")
  135.       )
  136.     )
  137.   )
  138.  
  139.   (IF (EXISTS "Devs:System-Configuration")
  140.     (
  141.       (COPYFILES (PROMPT "Richte Devs-Verzeichnis ein...")
  142.                  (DEST "MusicManII:Devs")
  143.                  (SOURCE "Devs:System-Configuration")
  144.       )
  145.     )
  146.   )
  147.  
  148.   (IF (< Kickstart 36)
  149.   (
  150.     (IF (= daten_ok 1)
  151.       (
  152.         (COPYFILES (PROMPT "Kopiere MusicManII-Preferences...")
  153.                    (SOURCE "Prefs/Env-Archive/MusicManII/MusicManII.prefs")
  154.                    (DEST "MusicManII:s")
  155.         )
  156.       )
  157.     )
  158.   )
  159.   (
  160.     (MAKEDIR "MusicManII:Prefs/Env-Archive/Sys")
  161.  
  162.     (COPYFILES (PROMPT "Richte Prefs-Verzeichnis ein...")
  163.                (SOURCE "ENVARC:Sys/icontrol.prefs")
  164.                (DEST "MusicManII:Prefs/Env-Archive/Sys")
  165.     )
  166.  
  167.  
  168.     (COPYFILES (PROMPT "Richte Prefs-Verzeichnis ein...")
  169.                (SOURCE "ENVARC:Sys/input.prefs")
  170.                (DEST "MusicManII:Prefs/Env-Archive/Sys")
  171.     )
  172.  
  173.     (COPYFILES (PROMPT "Richte Prefs-Verzeichnis ein...")
  174.                (SOURCE "ENVARC:Sys/palette.prefs")
  175.                (DEST "MusicManII:Prefs/Env-Archive/Sys")
  176.     )
  177.  
  178.     (COPYFILES (PROMPT "Richte Prefs-Verzeichnis ein...")
  179.                (SOURCE "ENVARC:Sys/Pointer.prefs")
  180.                (DEST "MusicManII:Prefs/Env-Archive/Sys")
  181.     )
  182.  
  183.     (COPYFILES (PROMPT "Richte Prefs-Verzeichnis ein...")
  184.                (SOURCE "ENVARC:Sys/printer.prefs")
  185.                (DEST "MusicManII:Prefs/Env-Archive/Sys")
  186.     )
  187.  
  188.     (COPYFILES (PROMPT "Richte Prefs-Verzeichnis ein...")
  189.                (SOURCE "ENVARC:Sys/printergfx.prefs")
  190.                (DEST "MusicManII:Prefs/Env-Archive/Sys")
  191.     )
  192.  
  193.     (IF (= (EXISTS "MusicManII:Prefs/Env-Archive/MusicManII") 0)
  194.       (
  195.         (MAKEDIR "MusicManII:Prefs/Env-Archive/MusicManII")
  196.       )
  197.     )
  198.  
  199.     (COPYFILES (PROMPT "Kopiere MusicManII-Preferences...")
  200.                (SOURCE "Prefs/Env-Archive/MusicManII/")
  201.                (PATTERN "def#?")
  202.                (DEST "MusicManII:Prefs/Env-Archive/MusicManII")
  203.                (INFOS)
  204.     )
  205.  
  206.     (COPYFILES (PROMPT "Kopiere MusicManII-Preferences...")
  207.                (SOURCE "Prefs/Env-Archive/MusicManII/MusicManII.prefs")
  208.                (DEST "MusicManII:Prefs/Env-Archive/MusicManII")
  209.                (INFOS)
  210.     )
  211.  
  212.   )
  213.   )
  214.  
  215.  
  216.   (IF (= Kick3 0)
  217.     (
  218.       (IF (< Kickstart 36)
  219.         (
  220.           (COPYFILES (PROMPT "Kopiere Startup-Sequence...")
  221.                      (DEST "MusicManII:s")
  222.                      (SOURCE "s/Startup-Sequence_WB1.x")
  223.           )
  224.         )
  225.         (
  226.           (COPYFILES (PROMPT "Kopiere Startup-Sequence...")
  227.                      (DEST "MusicManII:s")
  228.                      (SOURCE "s/Startup-Sequence_WB2.x")
  229.                      (NEWNAME "Startup-Sequence")
  230.           )
  231.         )
  232.       )
  233.     )
  234.     (
  235.       (COPYFILES (PROMPT "Kopiere Startup-Sequence...")
  236.                  (DEST "MusicManII:s")
  237.                  (SOURCE "s/Startup-Sequence_WB3.x")
  238.                  (NEWNAME "Startup-Sequence")
  239.       )
  240.     )
  241.   )
  242.  
  243.   (COPYLIB (PROMPT "Kopiere Libraries...")
  244.            (SOURCE "Libs/req.library")
  245.            (DEST "MusicManII:LIBS")
  246.   )
  247.  
  248.   (COPYLIB (PROMPT "Kopiere Libraries...")
  249.            (SOURCE "Libs/pattern.library")
  250.            (DEST "MusicManII:LIBS")
  251.   )
  252.  
  253.   (IF (EXISTS "LIBS:iffparse.library")
  254.     (
  255.       (COPYLIB (PROMPT "Kopiere Libraries...")
  256.                (SOURCE "Libs:iffparse.library")
  257.                (DEST "MusicManII:LIBS")
  258.       )
  259.     )
  260.   )
  261.  
  262.   (IF (EXISTS "LIBS:amigaguide.library")
  263.     (
  264.       (COPYLIB (PROMPT "Kopiere Libraries...")
  265.                (SOURCE "Libs:amigaguide.library")
  266.                (DEST "MusicManII:LIBS")
  267.       )
  268.     )
  269.   )
  270.  
  271.   (IF (EXISTS "LIBS:diskfont.library")
  272.     (
  273.       (COPYLIB (PROMPT "Kopiere Libraries...")
  274.                (SOURCE "Libs:diskfont.library")
  275.                (DEST "MusicManII:LIBS")
  276.       )
  277.     )
  278.   )
  279.  
  280.   (IF (EXISTS "LIBS:asl.library")
  281.     (
  282.       (COPYLIB (PROMPT "Kopiere Libraries...")
  283.                (SOURCE "Libs:asl.library")
  284.                (DEST "MusicManII:LIBS")
  285.       )
  286.     )
  287.   )
  288.  
  289.   (IF (EXISTS "LIBS:datatypes.library")
  290.     (
  291.       (COPYLIB (PROMPT "Kopiere Libraries...")
  292.                (SOURCE "Libs:datatypes.library")
  293.                (DEST "MusicManII:LIBS")
  294.       )
  295.     )
  296.   )
  297.  
  298.   (IF (EXISTS "SYS:Classes/datatypes/amigaguide.datatype")
  299.     (
  300.       (MAKEDIR "MusicManII:Libs/Datatypes")
  301.  
  302.       (COPYFILES (PROMPT "Kopiere Datatypes...")
  303.                  (SOURCE "SYS:Classes/datatypes/amigaguide.datatype")
  304.                  (DEST "MusicManII:LIBS/Datatypes/")
  305.       )
  306.     )
  307.   )
  308.  
  309.   (IF (EXISTS "DEVS:Datatypes/AmigaGuide")
  310.     (
  311.       (MAKEDIR "MusicManII:Devs/Datatypes")
  312.  
  313.       (COPYFILES (PROMPT "Kopiere Datatypes...")
  314.                  (SOURCE "DEVS:Datatypes/AmigaGuide")
  315.                  (DEST "MusicManII:Devs/Datatypes/")
  316.       )
  317.     )
  318.   )
  319.  
  320.   (COPYFILES (PROMPT "Kopiere MusicManII...")
  321.              (SOURCE "MusicManII")
  322.              (DEST "MusicManII:")
  323.              (INFOS)
  324.   )
  325.  
  326.   (COPYFILES (PROMPT "Kopiere MMII_PrefsEd...")
  327.              (SOURCE "MMII_PrefsEd")
  328.              (DEST "MusicManII:")
  329.              (INFOS)
  330.   )
  331. )
  332. )
  333.  
  334.  
  335. ;
  336. ; Create Disk with MusicManII-Data-Files
  337. ; --------------------------------------
  338.  
  339. (PROCEDURE create_data_disk
  340. (
  341.   (SET daten_ok 1)
  342.  
  343.   (ASKDISK (DEST "MusicManII_Daten")
  344.            (PROMPT "Bitte legen Sie die Diskette »MusicManII_Daten« ein...")
  345.            (HELP "Die Beispiel-Dateien besitzen eine Länge von etwa\n"
  346.                  "600 kBytes. Sie können Sie verwenden, um schnell\n"
  347.                  "einen Überblick über alle Funktionen von MusicManII\n"
  348.                  "zu erhalten, ohne vorher Unmengen von Daten einzu-\n"
  349.                  "geben.\n")
  350.   )
  351.  
  352.   (EXECUTE ("Beispieldateien/UnpackIt MusicManII_Daten:"))
  353.  
  354. )
  355. )
  356.  
  357.  
  358. ;
  359. ; Create Disk with Documentation
  360. ; ------------------------------
  361.  
  362. (PROCEDURE create_dox_disk
  363. (
  364.   (ASKDISK (DEST "HILFE")
  365.            (PROMPT "Bitte legen Sie die Diskette »HILFE« ein...")
  366.            (HELP "Es wird die Anleitung im AmigaGuide ins Verzeichnis\n"
  367.                  "HILFE: kopiert. Ohne diese Datei ist keine Online-Hilfe\n"
  368.                  "in MusicManII möglich!\n")
  369.   )
  370.  
  371.   (COPYFILES (PROMPT "Installiere Anleitung/Hilfe-Datei...")
  372.              (SOURCE "Anleitung/MusicManII.Guide")
  373.              (DEST "HILFE:")
  374.              (INFOS)
  375.   )
  376.  
  377. )
  378. )
  379.  
  380.  
  381. ;
  382. ; Install to Disks
  383. ; ================
  384.  
  385. (PROCEDURE Install2Disks
  386. (
  387.   (SET @default-dest "MusicManII:")
  388.  
  389.   (SET disk_nrs (ASKOPTIONS (PROMPT "Welche Disketten erstellen?")
  390.                             (CHOICES "Programm-Diskette"
  391.                                      "Daten-Diskette"
  392.                                      "Anleitungs-/Hilfediskette")
  393.                             (DEFAULT 7)
  394.                             (HELP "Programm-Diskette:\n"
  395.                                   "==================\n"
  396.                                   "\n"
  397.                                   "Auf diese Diskette werden das Hauptprogramm\n"
  398.                                   "und der Voreinstellungs-Editor kopiert. Es \n"
  399.                                   "besteht die Möglichkeit, die Diskette selbst\n"
  400.                                   "startend zu machen, um direkt von Diskette\n"
  401.                                   "zu starten und mit MusicManII zu arbeiten.\n"
  402.                                   "\n"
  403.                                   "Daten-Diskette:\n"
  404.                                   "===============\n"
  405.                                   "\n"
  406.                                   "Auf diese Diskette werden die Beispieldateien\n"
  407.                                   "zu MusicManII kopiert. Diese Dateien sind zur\n"
  408.                                   "Arbeit mit MusicManII nicht notwendig.\n"
  409.                                   "\n"
  410.                                   "Anleitungs-/Hilfediskette:\n"
  411.                                   "==========================\n"
  412.                                   "\n"
  413.                                   "Diese Diskette enthält die Anleitung zu Music-\n"
  414.                                   "ManII im AmigaGuide-Format. Diese Datei wird\n"
  415.                                   "von MusicManII zur Online-Hilfe herangezogen.\n"
  416.                                   "Sie ist zum Arbeiten nicht notwendig, bietet\n"
  417.                                   "Einsteigern jedoch wertvolle Hilfe.\n")
  418.                  )
  419.   )
  420.  
  421.   (IF (= (IN disk_nrs 0) 1)
  422.     (
  423.       (SET boot_ok (ASKBOOL (PROMPT "Soll die Diskette selbststartend sein?")
  424.                             (CHOICES "Ja"
  425.                                      "Nein")
  426.                             (DEFAULT 1)
  427.                             (HELP "Wenn Sie MusicManII direkt von Diskette\n"
  428.                                   "(ohne Workbench) starten wollen, also\n"
  429.                                   "direkt nach dem Einlegen der »MusicManII«\n"
  430.                                   "Diskette, so müssen Sie das Gadget »Ja«\n"
  431.                                   "anklicken.\n")
  432.                    )
  433.       )
  434.  
  435.       (IF (= boot_ok 1)
  436.         (
  437.           (create_boot_disk)
  438.         )
  439.         (
  440.           (ASKDISK (DEST "MusicManII")
  441.                    (PROMPT "Bitte legen Sie die Diskette »MusicManII« ein...")
  442.                    (HELP "Sie müssen jetzt eine Diskette mit dem\n"
  443.                          "Namen »MusicManII:« einlegen. Auf diese\n"
  444.                          "Diskette werden das Hauptprogramm und\n"
  445.                          "der MusicManII-Voreinstellungs-Editor\n"
  446.                          "kopiert.\n")
  447.           )
  448.  
  449.           (COPYFILES (PROMPT "Kopiere Programme...")
  450.                      (SOURCE "MusicManII")
  451.                      (DEST @default-dest)
  452.                      (INFOS)
  453.           )
  454.  
  455.           (COPYFILES (PROMPT "Kopiere Programme...")
  456.                      (SOURCE "MMII_PrefsEd")
  457.                      (DEST @default-dest)
  458.                      (INFOS)
  459.           )
  460.  
  461.           (COPYLIB (PROMPT "Kopiere Libraries...")
  462.                    (SOURCE "Libs/req.library")
  463.                    (DEST "LIBS:")
  464.           )
  465.  
  466.           (COPYLIB (PROMPT "Kopiere Libraries...")
  467.                    (SOURCE "Libs/pattern.library")
  468.                    (DEST "LIBS:")
  469.           )
  470.  
  471.         )
  472.  
  473.       )
  474.     )
  475.   )
  476.  
  477.   (IF (= (IN disk_nrs 1) 2)
  478.     (
  479.       (create_data_disk)
  480.     )
  481.   )
  482.  
  483.   (IF (= (IN disk_nrs 2) 4)
  484.     (
  485.       (create_dox_disk)
  486.     )
  487.   )
  488. )
  489. )
  490.  
  491.  
  492. ;
  493. ; Install to HardDisk
  494. ; ===================
  495.  
  496. (PROCEDURE Install2HD
  497. (
  498.   (SET @default-dest (ASKDIR (PROMPT "Bitte Verzeichnis für die Programme und Daten auswählen")
  499.                              (NEWPATH)
  500.                              (DISK)
  501.                              (DEFAULT @default-dest)
  502.                              (HELP @askdir-help)
  503.                      )
  504.   )
  505.  
  506.   (COPYFILES (PROMPT "Kopiere Programme...")
  507.              (SOURCE "MusicManII")
  508.              (DEST @default-dest)
  509.              (INFOS)
  510.   )
  511.  
  512.   (COPYFILES (PROMPT "Kopiere Programme...")
  513.              (SOURCE "MMII_PrefsEd")
  514.              (DEST @default-dest)
  515.              (INFOS)
  516.   )
  517.  
  518.   (SET def_dir (TACKON @default-dest "Daten"))
  519.  
  520.   (IF (= (EXISTS def_dir) 0)
  521.     (
  522.  
  523.       (MAKEDIR def_dir
  524.                (PROMPT "Erstelle Directory für die Daten...")
  525.                (INFOS)
  526.       )
  527.     )
  528.   )
  529.  
  530.   (SET daten_ok (ASKBOOL (PROMPT "Sollen die Beispiel-Dateien installiert werden?")
  531.                          (CHOICES "Ja" "Nein")
  532.                          (DEFAULT 1)
  533.                          (HELP "Die Beispiel-Dateien besitzen eine Länge von etwa\n"
  534.                                "600 kBytes. Sie können Sie verwenden, um schnell\n"
  535.                                "einen Überblick über alle Funktionen von MusicManII\n"
  536.                                "zu erhalten, ohne vorher unmengen von Daten einzu-\n"
  537.                                "geben.\n")
  538.                 )
  539.   )
  540.  
  541.   (IF (= daten_ok 1)
  542.     (
  543.  
  544.        (SET upack (CAT "Beispieldateien/UnpackIt " def_dir))
  545.  
  546.        (EXECUTE upack)
  547.  
  548.     )
  549.   )
  550.  
  551.   (SET doc_ok (ASKBOOL (PROMPT "Soll die Anleitung kopiert werden?")
  552.                        (CHOICES "Ja" "Nein")
  553.                        (DEFAULT 1)
  554.                        (HELP "Es wird die Anleitung im AmigaGuide ins Verzeichnis\n"
  555.                              "Daten kopiert. Ohne diese Datei ist keine Online-Hilfe\n"
  556.                              "in MusicManII möglich!\n")
  557.               )
  558.   )
  559.  
  560.   (IF (= doc_ok 1)
  561.     (
  562.       (COPYFILES (PROMPT "Installiere Anleitung/Hilfe-Datei...")
  563.                  (SOURCE "Anleitung/MusicManII.Guide")
  564.                  (DEST @default-dest)
  565.                  (INFOS)
  566.       )
  567.     )
  568.   )
  569.  
  570.   (IF (>= Kickstart 36)
  571.     (
  572.       (IF (= (EXISTS "ENVARC:MusicManII") 0)
  573.         (
  574.           (MAKEDIR "ENVARC:MusicManII")
  575.         )
  576.       )
  577.  
  578.       (IF (= (EXISTS "ENV:MusicManII") 0)
  579.         (
  580.           (MAKEDIR "ENV:MusicManII")
  581.         )
  582.       )
  583.  
  584.       (IF (= daten_ok 1)
  585.         (
  586.           (COPYFILES (PROMPT "Kopiere MusicManII-Preferences...")
  587.                      (SOURCE "Prefs/Env-Archive_HD/MusicManII/")
  588.                      (DEST "ENVARC:MusicManII")
  589.                      (ALL)
  590.           )
  591.  
  592.           (COPYFILES (PROMPT "Kopiere MusicManII-Preferences...")
  593.                      (SOURCE "Prefs/Env-Archive_HD/MusicManII/")
  594.                      (DEST "ENV:MusicManII")
  595.                      (ALL)
  596.           )
  597.         )
  598.       )
  599.     )
  600.     (
  601.       (IF (= daten_ok 1)
  602.         (
  603.           (COPYFILES (PROMPT "Kopiere MusicManII-Preferences...")
  604.                      (SOURCE "Prefs/Env-Archive_HD/MusicManII.prefs")
  605.                      (DEST "S:")
  606.           )
  607.         )
  608.       )
  609.     )
  610.   )
  611.  
  612.   (COPYLIB (PROMPT "Kopiere Libraries...")
  613.            (SOURCE "Libs/req.library")
  614.            (DEST "LIBS:")
  615.   )
  616.  
  617.   (COPYLIB (PROMPT "Kopiere Libraries...")
  618.            (SOURCE "Libs/pattern.library")
  619.            (DEST "LIBS:")
  620.   )
  621. )
  622. )
  623.  
  624.  
  625. ; ********
  626. ; * Main *
  627. ; ********
  628.  
  629. (SET Kickstart (GETVERSION))
  630.  
  631. (SET userlevel @user-level)
  632.  
  633. (USER 2)
  634.  
  635. (SET wo_installieren (ASKCHOICE (PROMPT "Wo soll MusicManII installiert werden?")
  636.                                 (CHOICES "Auf Festplatte"
  637.                                          "Auf Diskette(n)")
  638.                                 (DEFAULT 1)
  639.                                 (HELP @askchoice-help)
  640.                      )
  641. )
  642.  
  643. (USER userlevel)
  644.  
  645. (IF (= wo_installieren 0)
  646.   (
  647.     (Install2HD)
  648.   )
  649.   (
  650.     (Install2Disks)
  651.   )
  652. )
  653.  
  654.